Top 10k strings from Cricket Coach (1988)(Crash).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Covertapes / Sinclair ZX Spectrum - Covertapes - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   9 ;"      ";
   8 T$(TEAM2)(12
   8 T$(TEAM1)(12
   6 P$(TRANS,3
   6 P$(TRANS,2
   5 ;" WOULD YOU LIKE TO CHANGE ANY ";
   5 ;"                              ";
   5 ;"                              ":
   4 P$(TRANS,1
   4 P$(P(M(F)),3
   4 ;T$(TEAM)(16
   4 ;"        ";
   3 team2p=awabon:
   3 team2=oppo:
   3 team1p=hombon:
   3 team1=team:
   3 Z$="SKILL":
   3 Z$="ENERGY":
   3 T$(OPPO)(12
   3 P(F)=TRANS
   3 P$(P(M(G)),3
   3 P$(P(M(G)),1
   3 P$(P(M(F)),2
   3 P$(P(M(F)),1
   3 HOSCO=HOSCO+HIT:
   3 ;t$(team)(16
   3 ;t$(oppo)(16
   3 ;T$(OPPO)(16
   3 ;"GAME HIGHLIGHTS ON TV":
   3 ;"       ";
   3 ;"       ":
   3 ;"        ":
   3 ;"           ":
   3 );" gain ";hombon;" points";
   3 );" gain ";awabon;" points"
   3 ((MORAL/20
   3 "WHICH TO CHANGE? ";Z$:
   2 TEAM2=TEAM
   2 T$(TEAM2)(8
   2 T$(TEAM2)(6
   2 T$(TEAM2)(4
   2 T$(TEAM2)(14
   2 T$(TEAM2)(10
   2 T$(TEAM2)(1
   2 T$(TEAM1)(8
   2 T$(TEAM1)(6
   2 T$(TEAM1)(4
   2 T$(TEAM1)(16
   2 T$(TEAM1)(14
   2 T$(TEAM1)(10
   2 T$(TEAM1)(1
   2 T$(TEAM)(8
   2 T$(TEAM)(6
   2 T$(TEAM)(10
   2 T$(OPPO)(8
   2 T$(OPPO)(6
   2 T$(OPPO)(10
   2 P$(P(FOUND))(
   2 OVERALLOPPO=
   2 OPPO=TEAM2:
   2 NUMBER=NUMBER+1
   2 NUMBER =NUMBER -1
   2 CASH=CASH+PROFITS:
   2 BORROW=20000
   2 AWSCO=HOSCO+1
   2 ;t$(OPPO)(16
   2 ;P$(TRANS,2
   2 ;P$(TRANS,1
   2 ;P$(TRANS)(4
   2 ;HOMTOT;" runs"''
   2 ;"beat"'';
   2 ;"YOU DO NOT HAVE THAT MUCH CASH":
   2 ;"X   :  FOR MORE NAMES"
   2 ;"WHO IS VALUED AT `";(
   2 ;"TOTAL  :";
   2 ;"OVERALL TEAM SKILL : ";:
   2 ;":  ";T$(F)(16
   2 ;" TRANSFERS ";
   2 ;" SQUAD ";
   2 ;" MORE PLAYERS NAMES( Y / N )? ";
   2 ;" COUNTY ";
   2 ;" CODE ";
   2 ;"           ";
   2 ;"               ";
   2 ;"                ";
   2 );"     ";
   2 ((ENERGY/99
   2 "NAME (MAX 14):";Y$:
   1 two;" of my own money. I  warn  you  now, this  will not carry  on forever.""":
   1 cash=two-one:
   1 Z+BORROW>20000
   1 Z$="PICKED":
   1 WEEK=WEEK+1
   1 W$(WEEK)(W
   1 W$(WEEK)(U
   1 TRANS=P(REQUEST)
   1 TELEVISION=1500
   1 TELEVISION=0
   1 TEAM2P=TEAM2P+(
   1 TEAM2P<100
   1 TEAM1P=TEAM1P+(
   1 TEAM1P<100
   1 TEAM1=TEAM
   1 T$(TEAM2)(16
   1 T$(OPPO)(14
   1 SPONSORS=(18
   1 SKILL=SKILL+(
   1 SELL=SELL-450
   1 SEASON=SEASON+1
   1 S$="00"+S$:
   1 R$="00"+R$:
   1 PROFITS=PROF-AGAI:
   1 PROF=ATTEND+LOTTERY+SPONSORS+TELEVISION:
   1 PRICE=PRICE-450
   1 PO2=TEAM2P:
   1 PO1=TEAM1P:
   1 P(NUMBER)=TRANS:
   1 P(NUMBER)=TRA
   1 P( FOUND- FOUND+F)=P( FOUND-FOUND+F+1
   1 P$(P(INTEAM),2
   1 P$((P(F)),1
   1 OVERO=OVERALLOPPO:
   1 OVERA>OVERO
   1 OVERA=OVERALL:
   1 OVERA<OVERO
   1 OUTEAM>NUMBER
   1 OPPO=TEAM1
   1 OFFER=TEAM
   1 OFFER=OFFER-450
   1 OFFER;"."''"    DO YOU ACCEPT (Y / N)?"
   1 OFFER <100
   1 NUMBER <15
   1 NUMBER <12
   1 MORAL=MORAL-2
   1 MORAL=MORAL-1
   1 MORAL=MORAL+2
   1 MEMBER=NUMBER:
   1 MEMBER=MEMBER-1
   1 MEMBER=MEMBER+1
   1 MEMBER =NUMBER:
   1 M(MEMBER)=INTEAM:
   1 M(F)=OUTEAM
   1 M(F)=INTEAM:
   1 M(F)=INTEAM
   1 KEEP=KEEP+1
   1 INTEREST=INTEREST-1
   1 INTEREST=INTEREST+1
   1 INTEREST=10
   1 INTER=  (((INTEREST/4
   1 INTEAM>NUMBER
   1 HOSCO>AWSCO
   1 HOMTOT=HOSCO
   1 ENERGY=ENERGY+(
   1 D(P(M(G)))=D(P(M(G)))+1
   1 CRICKET   
   1 CASH=CASH-Z:
   1 CASH=CASH-BORROW:
   1 CASH=CASH-
   1 CASH=CASH+Z:
   1 CASH=CASH+SELL:
   1 CASH=CASH+OFFER:
   1 CASH=CASH+BONUS
   1 CASH=CASH+250
   1 CASH=CASH+1000
   1 CASH=CASH+(20000
   1 CASH+PROFITS>-.001
   1 CASH =CASH+PROFITS:
   1 C(P(M(G)))=C(P(M(G)))+HIT:
   1 C$(j)=C$(k):
   1 C$(j) > C$(k)
   1 C$(F)=T$(TEAM)
   1 C$(F)=T$(F):
   1 BORROW=BORROW-Z:
   1 BORROW=BORROW+Z
   1 BONUS=22000
   1 AWSCO>HOSCO
   1 AWSCO=HOSCO:
   1 AWSCO=HOSCO-MORAL:
   1 AWSCO=HOSCO
   1 AWATOT=AWSCO:
   1 AGAI=GROUND+SAL+INTER:
   1 ;t$(TEAM)(16
   1 ;T$(OFFER)(16
   1 ;P$(TRA)(4
   1 ;P$(P(M(G)))(4
   1 ;P$(P(F))(4
   1 ;OVERALLOPPO;"%"
   1 ;F;"  :  ";P$(F)(4
   1 ;C(P(F))/D(P(F)):
   1 ;AWATOT;" runs"''
   1 ;"drew with"'';
   1 ;"`";CASH;
   1 ;"YOUR TALENT SCOUTS HAVE SPOTTED";
   1 ;"YOUR BID WAS REFUSED":
   1 ;"YOU HAVE `";CASH;"."
   1 ;"YOU DO NOT OWE ANY MONEY":
   1 ;"YOU CAN ONLY RE-PAY `";BORROW:
   1 ;"YOU CAN ONLY HAVE `";20000
   1 ;"YOU CAN NOT BORROW ANY MORE":
   1 ;"YOU ARE NOT INTERESTED";
   1 ;"WRITTEN ON THE SPECTRUM";
   1 ;"WIN BONUS  :  `1000":
   1 ;"WEEKS PROFITS       : `";PROFITS:
   1 ;"THE CHAIRMAN SAYS,":
   1 ;"TELEVISION COVERAGE : `";TELEVISION
   1 ;"TEAM SKILL";
   1 ;"TEAM MORAL  : ";((MORAL/20
   1 ;"TEAM ENERGY : ";:
   1 ;"TEAM BATTING AVERAGES"
   1 ;"SPONSORSHIP DEALS   : `";SPONSORS;
   1 ;"SEASON";
   1 ;"PRESS:"'" C (choose team)  P (play game)"
   1 ;"PRESS ANY KEY":
   1 ;"PRESS ANY KEY TO CONTINUE":
   1 ;"PLEASE WAIT"
   1 ;"PLAYERS WAGES       : `";SAL;
   1 ;"OVERDRAFT ALLOWED  : `20000";
   1 ;"ONLY ONE WICKET KEEPER ALLOWED":
   1 ;"NOT FIT ENOUGH":
   1 ;"NEXT MENU"
   1 ;"NEW SEASON":
   1 ;"MONEY OWED TO BANK : `";BORROW:
   1 ;"LOTTERTY TICKETS    : `";LOTTERY;
   1 ;"LEAGUE POS";
   1 ;"KEEPING STRENGTH : ";
   1 ;"INTEREST RATE      : ";INTEREST;"%";
   1 ;"HAVE APPROACHED ";T$(TEAM)(16
   1 ;"GROUND RENT         : `";GROUND;
   1 ;"GET READY FOR A NEW GAME":
   1 ;"FREE SUMMER SIGNINGS  :":
   1 ;"FOR THE FEE OF `";:
   1 ;"FOR ";G:
   1 ;"FINAL CHAMPIONSHIP POSITION : ";LEAGUE:
   1 ;"END OF SEASON"
   1 ;"DRAW BONUS  :  `250":
   1 ;"DO YOU ACCEPT  (Y / N) ?"
   1 ;"CRICKET COACH";
   1 ;"CHAMPIONSHIP BONUS  :  `";:
   1 ;"CASH AT PRESENT    : `";CASH;
   1 ;"BY ROBERT McSHERRY"
   1 ;"BOWLING STRENGTH : ";
   1 ;"BID ACCEPTED":
   1 ;"BATTING STRENGTH : ";
   1 ;"BANK INTEREST       : `";INTER:
   1 ;"ATTENDANCE PROFITS  : `";ATTEND;
   1 ;"ALREADY IN TEAM":
   1 ;"ALL OUT"
   1 ;"ABOUT THE POSSIBLE TRANSFER OF";
   1 ;":  ";P$(F)(4
   1 ;"6  :  START GAMES"
   1 ;"5  :  RE-PAY CASH";
   1 ;"4  :  BORROW CASH";
   1 ;"3  :  STATUS CARD";
   1 ;"2  :  SELL PLAYER";
   1 ;"2  :  SAVE GAME"
   1 ;"1  :  AVERAGES";
   1 ;"1  :  ALL PLAYERS";
   1 ;"""I only  want the best  for the  club  so I  will plant into it  `";:
   1 ;"""I am afraid that I am going to  have to ask you to resign. Not  only  do  you owe  substantial  amounts  of money to the bank,  but  you are  also only placed  at ";league;" in  the league  after ";week;"  weeks. I regret having to make  the  decision, but I want only  the best for the club.""":
   1 ;" WEEKS PROFITS ";
   1 ;" VALUE ":
   1 ;" TEAM SELECTION ";
   1 ;" TAKE YOUR PICK ";
   1 ;" STATUS ";
   1 ;" NAME ";
   1 ;" LEAGUE ";
   1 ;" INFO ";
   1 ;" CRICKET COACH ";
   1 ;" BANK ";
   1 ;"  MORE TEAM NAMES ( Y / N )?  ";
   1 ;"  ";homtot;" runs":
   1 ;"  ";awatot;" runs";:
   1 ;"  ";awatot;" runs";
   1 ;"  ";P$(P(F))(4
   1 ;"   PRESS ANY KEY TO CONTINUE":
   1 ;"   PLAYERS NAMES ( Y / N )?   ";
   1 ;"    YOU NEED TO BORROW `";ONE;"             FROM THE BANK.":
   1 ;"    TEAM NAMES ( Y / N ) ?    ";
   1 ;"      ":
   1 ;"        " :
   1 ;"               ":
   1 ;"               "
   1 ;"                ":
   1 ;"                "
   1 ;"                 ":
   1 ;"                   ";:
   1 ; OVERALL;"%"
   1 1988           
   1 0201170316041505140613071208110903010417051606150714081309121011010402031705160615071408130912100501040217061607150814091310121101060205030407170816091510141113010702060305081709161015111412130801070206030504170916101511141201090208030704061017111612151314100109020803070406051711161215130111021003090408050712171316141512011102100309040805070617131614011302120311041005090608141715161401130212031104100509060807171501150214031304120511061007091617160115021403130412051106100709080117021603150414051306120711081017021603150414051306120711081009
   1 0082 2 00002074LEICESTERSHIRE  0062 1 1 001946ESSEX           0062 1 1 001563WARWICKSHIRE    0062 1 1 001555GLOUCESTERSHIRE 0042 002 008 84MIDDLESEX       0042 002 001638HAMPSHIRE       0042 002 001466YORKSHIRE       0042 002 001312SURREY          0041 1 00001266NORTHAMPTONSHIRE0022 001 1 1255KENT            0021 002 001608NOTTINGHAMSHIRE 0021 001 009 58SOMERSET        0021 001 001310LANCASHIRE      0021 001 001283WORCESTERSHIRE  0002 00002 8 28GLAMORGAN       0002 00002 6 44SUSSEX          0001 001 1 8 31DERBYSHIRE      R
   1 001HOLDING       001MALCOLM       002BOWLER        001JEAN-JACQUES  001WARNER        003MAHER         002GOLDSMITH     002ROBERTS       001NEWMAN        002MORRIS        002BARNETT       001MORTENSEN     001DE FREITAS    001DILLEY        001CAPEL         002ATHEY         001JARVIS        001PRINGLE       001MILLER        002ROBINSON      002HICK          002GOOCH         002BORDER        002GATTING       001SMALL         003PARKS         003WHITTICASE    003RHODES        002BROAD         002LAMB          002GOWER         002BOTHAM        003FRENCH        003RICHARDS      001EMBUREY       001WILLEY        001FOSTER        001ALLOT         
   1 0001 001 1 8 31DERBYSHIRE      
   1 000000000001135KENT            000000000001442WORCESTERSHIRE  000000000001354LEICESTERSHIRE  000000000001677ESSEX           000000000001020MIDDLESEX       000000000001456GLOUCESTERSHIRE 000000000001877WARWICKSHIRE    000000000001650NOTTINGHAMSHIRE 000000000001525NORTHAMPTONSHIRE000000000001502LANCASHIRE      000000000001243SOMERSET        000000000001173DERBYSHIRE      000000000001241SURREY          000000000001742SUSSEX          000000000001705HAMPSHIRE       000000000001526YORKSHIRE       000000000001588GLAMORGAN       
   1 -(LEAGUE*1000
   1 *NUMBER)+1
   1 )="00000000000":
   1 );", HAS        ASKED FOR A TRANSFER."
   1 );" (";TEAM2P;")":  :
   1 );" (";TEAM2P;")":
   1 );" (";TEAM2P;")   beat"'T$(TEAM1)(16
   1 );" (";TEAM1P;")":
   1 );" (";TEAM1P;")  drew with"'T$(TEAM2)(16
   1 );" (";TEAM1P;")   beat"'T$(TEAM2)(16
   1 )*(BORROW/1
   1 )'';"HAVE OFFERED THE SUM OF `";:
   1 (SKILL/135
   1 (ONE+BORROW)>20000
   1 ((OVERALLOPPO/200
   1 ((OVERALL/500
   1 'T$(TEAM)(16
   1 '"SUNDAY LEAGUE";
   1 "WHICH PLAYER TO SELL? ";Z$:
   1 "WHAT SKILL LEVEL (1 - 10)? ";LEVEL:
   1 "WHAT IS YOUR NAME? ";Z$:
   1 "NAME (MAX 16):";Y$:
   1 "HOW MUCH TO RE-PAY? `";Z:
   1 "HOW MUCH DO YOU WANT? `";Z:
   1 "CRICKET":
   1 "CHOOSE YOUR TEAM  :  ";F:
   1 ":";C$(F)(16
   1 " WHICH PLAYER TO WITHDRAW :";OUTEAM:
   1 " WHICH PLAYER TO ADD (OR 0) :";INTEAM:
   1 " ";P$(P(F))(4
   1 "  HOW MUCH DO YOU WISH TO BID,     (IF ANY)?  `";Z$
   1  ENERGY CHANGES
   1     MENU II
   1                               CRICKET COACH                   by                   ROBERT McSHERRY                
   1                                                   SELL PLAYER                                              
   1                                                        TRANSFER REQUESTS                                    
   1                                                          CHOOSE TEAM                                             
   1                                                          AFTER MATCH                                                
   1                                                           STATUS CARD                                                     
   1                                                           PLAY GAMES